home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Visual Basic Source Code
/
Visual Basic Source Code.iso
/
vbsource
/
getdis1r
/
frmsplas.frm
(
.txt
)
< prev
next >
Wrap
Visual Basic Form
|
1999-07-26
|
2KB
|
82 lines
VERSION 5.00
Begin VB.Form frmSplash
Caption = "Welcome Message"
ClientHeight = 1440
ClientLeft = 48
ClientTop = 336
ClientWidth = 3780
ControlBox = 0 'False
LinkTopic = "Form2"
ScaleHeight = 1440
ScaleWidth = 3780
StartUpPosition = 2 'CenterScreen
Begin VB.CommandButton Cancel
Caption = "&Exit"
Height = 372
Left = 2280
TabIndex = 3
Top = 1080
Width = 972
End
Begin VB.CommandButton cmdOK
Caption = "&OK"
Default = -1 'True
Height = 372
Left = 600
TabIndex = 1
Top = 1080
Width = 972
End
Begin VB.Label Label1
Alignment = 2 'Center
BackColor = &H8000000E&
Caption = "<Your Program Name Here>"
BeginProperty Font
Name = "Arial"
Size = 12
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 372
Left = 0
TabIndex = 2
Top = 0
Width = 3816
End
Begin VB.Label Version
BackColor = &H8000000E&
Caption = "<Version here when you run it>"
BeginProperty Font
Name = "Arial"
Size = 10.8
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 252
Left = 0
TabIndex = 0
Top = 720
Width = 3816
End
Attribute VB_Name = "frmSplash"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Cancel_Click()
Unload Me
End Sub
Private Sub cmdOK_Click()
frmBrowser.Show
Unload Me
End Sub
Private Sub Form_Load()
Version.Caption = "Version " & App.Major & "." & App.Minor
End Sub